home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / guienv374.lha / GUIEnvironment / OberonA / Source / 3rdParty / GUIEnv.mod next >
Text File  |  1994-11-01  |  22KB  |  645 lines
  1. (****************************************************************************
  2.  
  3. $RCSfile: GUIEnv.mod $
  4.  
  5. $Revision: 1.6 $
  6.     $Date: 1994/11/01 15:20:34 $
  7.  
  8.     Oberon-2 interface module for GUIEnvironment V37.4
  9.  
  10.     Oberon-A Oberon-2 Compiler V4.17 (Release 1.4 Update 2)
  11.  
  12.   Copyright © 1994, Carsten Ziegeler
  13.                     Augustin-Wibbelt-Str.7, 33106 Paderborn, Germany
  14.  
  15.  
  16. ****************************************************************************)
  17. MODULE GUIEnv;
  18.  
  19. (* $P- Allow non-portable code *)
  20.  
  21.  
  22. IMPORT K := Kernel,
  23.        E := Exec,
  24.        G := Graphics,
  25.        I := Intuition,
  26.        U := Utility;
  27.  
  28.  
  29. CONST
  30.  
  31.   Name* = "guienv.library";     (* Library name *)
  32.   Version* = 37;                (* min version / Revision 2 !*)
  33.  
  34.  
  35. (* ======================================================================= *)
  36. (*                               Error codes                               *)
  37. (* ======================================================================= *)
  38.  
  39. CONST
  40.  
  41.   geDone             *=   0;   (* no error, everything done *)
  42.   geMemoryErr        *=   1;   (* not enough memory *)
  43.   geWindowErr        *=   2;   (* no window specified *)
  44.   geVisualInfoErr    *=   3;   (* couldn't get VisualInfo *)
  45.   geDrawInfoErr      *=   4;   (* couldn't get DrawInfo *)
  46.  
  47.   geGadContextErr    *= 100;   (* GadTools CreateContext failed *)
  48.   geGadCreateErr     *= 101;   (* error calling CreateGadget/NewObject *)
  49.   geGadTooManyErr    *= 102;   (* more than 256 gadgets *)
  50.   geGadKeyTwiceErr   *= 102;   (* same key equivalent for two gadgets *)
  51.   geGadUnknownKind   *= 104;   (* unknown gadget kind *)
  52.   geGadChainErr      *= 105;   (* ChainStart/ChainEnd missing *)
  53.   geGadHookErr       *= 106;   (* Hook function failed *)
  54.  
  55.   geMenuCreateErr    *= 200;   (* error calling CreateMenu *)
  56.   geMenuStripErr     *= 201;   (* error calling SetMenuStrip *)
  57.   geMenuLayoutErr    *= 202;   (* error calling LayoutMenus *)
  58.   geMenuTooManyErr   *= 203;   (* more than 256 menu items *)
  59.  
  60.  
  61. (* ======================================================================= *)
  62. (*                         GE Hook functions                               *)
  63. (* ======================================================================= *)
  64.  
  65. (* The GUIEnvironment hook functions:
  66.    - The hook functions are implemented as amiga callback hooks as
  67.      documented in the Utilities documentation
  68.    - Before a hook functions is called, the A4 register is set
  69.    - The A0 register points to Hook structure
  70.    - The A1/A2 register are used as stated below
  71.  
  72. *)
  73.  
  74. (* ------------------------ return values -------------------------------- *)
  75.  
  76.   gehKeyShifted  *= 512;
  77.   gehKeyUnknown  *= -1;
  78.  
  79. (* ------------------------ The hook functions --------------------------- *)
  80.  
  81. TYPE
  82.  
  83.          (* Hook function for key equivalents:
  84.  
  85.               A1      : Currently unused, set to NIL
  86.               A2      : LONGINT : The ASCII character code
  87.               RESULT  : LONGINT : gehKeyUnknown if the key is not a key
  88.                                   equivalent or the number of the gadget,
  89.                                   or the number of the gadget plus
  90.                                   gehKeyShifted !
  91.  
  92.          *)
  93.  
  94.          (* Handle message hook
  95.  
  96.               A1, A2  : Currently unused, set to NIL
  97.               RESULT  : LONGINT, handled as BOOLEAN
  98.                         Return TRUE, if GUIEnv should not work on the
  99.                         message anymore, otherwise FALSE
  100.  
  101.  
  102.             Refresh hook
  103.  
  104.               A1, A2  : Currently unused, set to NIL
  105.               RESULT  : Currently unused, set this always to 0 !
  106.  
  107.          *)
  108.  
  109.          (* Gadget event message hook
  110.  
  111.               A2      : Pointer to event gadget
  112.               A1      : Currently unused, set to NIL
  113.               RESULT  : LONGINT, handled as BOOLEAN
  114.                         If you want to wait for further messages return
  115.                         TRUE, otherwise FALSE to exit the message-loop.
  116.  
  117.  
  118.             Menu event message hook
  119.  
  120.               A2      : Pointer to event menu item (if possible)
  121.               A1      : Currently unused, set to NIL
  122.               RESULT  : LONGINT, handled as BOOLEAN
  123.                         If you want to wait for further messages return
  124.                         TRUE, otherwise FALSE to exit the message-loop.
  125.  
  126.  
  127.             Gadget creation hook
  128.  
  129.               A2      : Pointer to event gadget
  130.               A1      : Currently unused, set to NIL
  131.               RESULT  : LONGINT, handled as BOOLEAN
  132.                         If your creation hook has done his work, return
  133.                         TRUE, otherwise FALSE to stop creation !
  134.  
  135.          *)
  136.  
  137. (* ======================================================================= *)
  138. (*                               Gadgets                                   *)
  139. (* ======================================================================= *)
  140.  
  141. CONST
  142. (* ----------------------- gadget kinds ---------------------------------- *)
  143.  
  144.   gegKinds                 *=  65535; (* GUIEnv gadgets *)
  145.   gegProgressIndicatorKind *=  65536;
  146.   gegBevelboxKind          *=  65537;
  147.   gegBorderKind            *=  65538;
  148.  
  149.   gegBOOPSIKinds           *= 131071; (* BOOPSI gadgets *)
  150.   gegBOOPSIPublicKind      *= 131072;
  151.   gegBOOPSIPrivateKind     *= 131073;
  152.  
  153. (* ----------------------- gadget chain flags ---------------------------- *)
  154.  
  155.   gegChainUpNext     *= 0;  (* 16 bits *)
  156.   gegChainUpPrev     *= 1;
  157.   gegChainDownNext   *= 2;
  158.   gegChainDownPrev   *= 3;
  159.  
  160.  
  161. (* ----------------------- gadget description flags ---------------------- *)
  162.  
  163. CONST
  164.   gegDistNorm    *=  0;  (* Normal distance *)
  165.   gegDistAbs     *=  1;  (* absolute distance from an object *)
  166.   gegDistRel     *=  2;  (* relative distance from an object *)
  167.   gegDistPercent *=  3;  (* percentual distance *)
  168.  
  169.   gegObjBorder   *=  0;  (* window border *)
  170.   gegObjGadget   *=  4;  (* gadget (standard is previous gadget) *)
  171.  
  172.   gegObjRight    *=  0;  (* distance from which part of the object *)
  173.   gegObjBottom   *=  0;
  174.   gegObjLeft     *= 32;
  175.   gegObjTop      *= 32;
  176.  
  177. (* ----------------------- gadget tag values ----------------------------- *)
  178.  
  179.   gegACTIVATIONUP  *=  0;
  180.   gegACTIVATIONDOWN*=  1;
  181.  
  182.  
  183.   gegALLGADGETS    *= -1;
  184.  
  185. (* ----------------------- gadget tags ----------------------------------- *)
  186.  
  187.   gegBase *= U.tagUser + 016000H;
  188.   gegText            *= gegBase +  1;
  189.   gegFlags           *= gegBase +  2;
  190.   gegFont            *= gegBase +  3;
  191.   gegUserData        *= gegBase +  4;
  192.   gegDescription     *= gegBase +  5;
  193.   gegObjects         *= gegBase +  6;
  194.   gegGuideNode       *= gegBase +  7;
  195.   gegCatalogString   *= gegBase + 10;
  196.   gegClass           *= gegBase + 11;
  197.   gegVarAddress      *= gegBase + 12;
  198.   gegHandleInternal  *= gegBase + 13;
  199.   gegStartChain      *= gegBase + 14;
  200.   gegEndChain        *= gegBase + 15;
  201.   gegActivate        *= gegBase + 16;
  202.   gegChainActivation *= gegBase + 17;
  203.   gegStatus          *= gegBase + 19;
  204.   gegUpAHook         *= gegBase + 20;
  205.   gegDownAHook       *= gegBase + 21;
  206.   gegCreationAHook   *= gegBase + 22;
  207.  
  208.   gegPIMaxValue      *= gegBase + 50;
  209.   gegPICurrentValue  *= gegBase + 51;
  210.   gegBBRecessed      *= gegBase + 52;
  211.  
  212.   gegDisable         *= gegBase + 100;
  213.   gegEnable          *= gegBase + 101;
  214.   gegSetVar          *= gegBase + 102;
  215.   gegGetVar          *= gegBase + 103;
  216.   gegActivateUp      *= gegBase + 104;
  217.   gegActivateDown    *= gegBase + 105;
  218.  
  219.   gegAddress         *= gegBase + 200;
  220.   gegLeftEdge        *= gegBase + 201;
  221.   gegTopEdge         *= gegBase + 202;
  222.   gegWidth           *= gegBase + 203;
  223.   gegHeight          *= gegBase + 204;
  224.   gegRedraw          *= gegBase + 205;
  225.  
  226.  
  227. (* ----------------------- GUIGadgetInfo structure ------------------------ *)
  228.  
  229. TYPE
  230.  
  231.   GUIGadgetInfoPtr *= CPOINTER TO GUIGadgetInfo; (* gadget^.userData *)
  232.  
  233.   GUIGadgetInfo *= RECORD  (* a pointer to this structure is stored in
  234.                              gadget^.userData *)
  235.     userData - : E.APTR;    (* use this for own user data *)
  236.     kind     - : LONGINT;   (* gadget kind *)
  237.  
  238.     gadgetClass - : E.APTR; (* The BOOPSI Gadget Class *)
  239.  
  240.     functionUp   - : U.HookPtr;
  241.     functionDown - : U.HookPtr;
  242.  
  243.     guideNode- : E.STRPTR;  (* The AmigaGuide node for this gadget *)
  244.  
  245.   END;
  246.  
  247.  
  248. (* ======================================================================= *)
  249. (*                             Menu Items                                  *)
  250. (* ======================================================================= *)
  251.  
  252. CONST
  253. (* ---------------------- menu item tags --------------------------------- *)
  254.  
  255.   gemBase *= U.tagUser + 018000H;
  256.   gemUserData        *= gemBase + 1;
  257.   gemGuideNode       *= gemBase + 3;
  258.   gemCatalogString   *= gemBase + 4;
  259.   gemShortCut        *= gemBase + 5;
  260.   gemFlags           *= gemBase + 6;
  261.   gemMutualExclude   *= gemBase + 7;
  262.   gemAHook           *= gemBase + 8;
  263.  
  264. (* ---------------------- GUIMenuInfo structure -------------------------- *)
  265.  
  266. TYPE
  267.  
  268.   GUIMenuInfoPtr *= CPOINTER TO GUIMenuInfo; (* menu^.userData *)
  269.  
  270.   GUIMenuInfo *= RECORD    (* a pointer to this structure is stored in
  271.                               menuitem^.userData *)
  272.     userData - : E.APTR;     (* use this for own user data *)
  273.  
  274.     function - : U.HookPtr;
  275.  
  276.     guideNode- : E.STRPTR;   (* The AmigaGuide node for this menuitem *)
  277.  
  278.   END;
  279.  
  280.  
  281.  
  282. (* ======================================================================= *)
  283. (*                            GUIInfo                                      *)
  284. (* ======================================================================= *)
  285.  
  286. (* -------------------------- GUIInfo structure -------------------------- *)
  287.  
  288.   GUIInfoPtr *= CPOINTER TO GUIInfo;
  289.   GUIInfo *= RECORD
  290.     window     - : I.WindowPtr;         (* pointer to the used Window *)
  291.     screen     - : I.ScreenPtr;         (* pointer to window's screen *)
  292.     visualInfo - : E.APTR;              (* pointer to screen's VisualInfo *)
  293.     drawInfo   - : I.DrawInfoPtr;       (* pointer to a copy of DrawInfo *)
  294.     localeInfo - : E.APTR;              (* pointer to locale environment *)
  295.  
  296.     menuFont - : G.TextAttrPtr;         (* pointer to menu-font. Is set to
  297.                                            screens font. *)
  298.  
  299.     creationWidth  - : INTEGER;       (* window inner width *)
  300.     creationHeight - : INTEGER;       (* window inner height *)
  301.  
  302.     msgPort  - : E.MsgPortPtr;        (* Pointer to IDCMP-Port *)
  303.  
  304.     intuiMsg - : I.IntuiMessagePtr;   (* Points to a copy of the
  305.                                          FULL IntuiMessage even if it
  306.                                          is extended (OS3.0+) *)
  307.  
  308.  (* Additional information about the message: *)
  309.     msgClass - : SET;
  310.  
  311.     msgCode     - : INTEGER;
  312.     msgBoolCode - : BOOLEAN;
  313.     msgCharCode - : CHAR;
  314.  
  315.     msgGadget  - : I.GadgetPtr;
  316.  
  317.     msgItemAdr - : I.MenuItemPtr;
  318.  
  319.     msgGadNbr  - : INTEGER;
  320.  
  321.     msgMenuNum - : INTEGER;
  322.     msgItemNum - : INTEGER;
  323.     msgSubNum  - : INTEGER;
  324.  
  325.  (* Some user stuff: *)
  326.     userData      - : E.APTR;         (* for own data *)
  327.     compilerReg   - : E.APTR;         (* for compiler data reg *)
  328.  
  329.     gadgetGuide   - : E.APTR;         (* name & path for the guide *)
  330.     menuGuide     - : E.APTR;         (* name & path for the guide *)
  331.  
  332.     catalogInfo   - : E.APTR;         (* points to the catalog given
  333.                                          with the GUI_CatalogFile tag *)
  334.     gadgetCatalogString - : LONGINT;  (* The number of the next string *)
  335.     menuCatalogString   - : LONGINT;  (* in the catalog *)
  336.  
  337.     vanKeyHook    - : U.HookPtr;        (* Hook functions *)
  338.     handleMsgHook - : U.HookPtr;
  339.     refreshHook   - : U.HookPtr;
  340.  
  341.     hookInterface - : E.APTR;
  342.  
  343.     creationFont  - : G.TextAttrPtr;  (* GUIDefinition: text/gadget font *)
  344.     textFont      - : G.TextAttrPtr;  (* Font for gadgets and text *)
  345.  
  346.   END;
  347.  
  348. CONST
  349.  
  350. (* --------------------------- GUI Tags ------------------------------------ *)
  351.  
  352.   guiBase *= U.tagUser + 015000H;
  353.   guiTextFont            *= guiBase +  1;
  354.   guiMenuFont            *= guiBase +  2;
  355.   guiCreateError         *= guiBase +  4;
  356.   guiUserData            *= guiBase +  5;
  357.   guiCompilerReg         *= guiBase +  6;
  358.   guiGadgetGuide         *= guiBase +  8;
  359.   guiMenuGuide           *= guiBase +  9;
  360.   guiCatalogFile         *= guiBase + 10;
  361.   guiGadgetCatalogOffset *= guiBase + 11;
  362.   guiMenuCatalogOffset   *= guiBase + 12;
  363.   guiCreationWidth       *= guiBase + 13;
  364.   guiCreationHeight      *= guiBase + 14;
  365.   guiMsgPort             *= guiBase + 16;
  366.   guiRefreshAHook        *= guiBase + 17;
  367.   guiHandleMsgAHook      *= guiBase + 18;
  368.   guiVanKeyAHook         *= guiBase + 19;
  369.   guiHookInterface       *= guiBase + 20;
  370.   guiCreationFont        *= guiBase + 21;
  371.   guiPreserveWindow      *= guiBase + 22;
  372.  
  373.   guiRemoveMenu          *= guiBase + 100;
  374.   guiRemoveGadgets       *= guiBase + 101;
  375.   guiClearWindow         *= guiBase + 102;
  376.   guiEmptyMsgPort        *= guiBase + 103;
  377.   guiDoBeep              *= guiBase + 104;
  378.   guiLock                *= guiBase + 105;  (* Requires ReqTools *)
  379.   guiUnLock              *= guiBase + 106;  (* Requires ReqTools *)
  380.  
  381.  
  382. (* -------------------- Preserve Window Flags ---------------------------- *)
  383.  
  384.   guiPWFull    *= 0;   (* Preserve the window and the min and max values *)
  385.   guiPWSize    *= 1;   (* Preserve only the window *)
  386.   guiPWMinMax  *= 2;   (* Preserve only the min and max values *)
  387.  
  388.  
  389. (* ======================================================================= *)
  390. (*                             Requester                                   *)
  391. (* ======================================================================= *)
  392.  
  393. (* -------------------- Requester kinds ---------------------------------- *)
  394.  
  395.   gerGeneralKind *= 0;
  396.   gerOKKind      *= 1;
  397.   gerDoItKind    *= 2;
  398.   gerYNCKind     *= 3;
  399.   gerFileKind    *= 4;
  400.   gerDirKind     *= 5;
  401.  
  402.   gerRTKind      *= 100;  (* Requires ReqTools *)
  403.   gerRTOKKind    *= 101;
  404.   gerRTDoItKind  *= 102;
  405.   gerRTYNCKind   *= 103;
  406.   gerRTFileKind  *= 104;
  407.   gerRTDirKind   *= 105;
  408.  
  409. (* --------------------- Return values ----------------------------------- *)
  410.  
  411.   gerCancel *= 0;  (* gerYNCKind / gerDoItKind / gerOKKind /
  412.                      gerFileKind / gerDirKind*)
  413.   gerYes    *= 1;  (* gerYNCKind / gerDoItKind / gerFileKind / gerDirKind *)
  414.   gerNo     *= 2;  (* gerYNCKind *)
  415.  
  416. (* --------------------- Requester tags ---------------------------------- *)
  417.  
  418.   gerBase *= U.tagUser + 017000H;
  419.   gerGadgets        *= gerBase +  1;
  420.   gerArgs           *= gerBase +  2;
  421.   gerFlags          *= gerBase +  3;
  422.   gerTitle          *= gerBase +  4;
  423.   gerIDCMP          *= gerBase +  5;
  424.   gerPattern        *= gerBase +  6;
  425.   gerNameBuffer     *= gerBase +  7;
  426.   gerFileBuffer     *= gerBase +  8;
  427.   gerDirBuffer      *= gerBase +  9;
  428.   gerSave           *= gerBase + 10;
  429.   gerLocaleID       *= gerBase + 11;
  430.  
  431. (* ======================================================================= *)
  432. (*                              Windows                                    *)
  433. (* ======================================================================= *)
  434.  
  435. (* ---------------------- window tags ------------------------------------ *)
  436.  
  437.   gewBase *= U.tagUser + 019000H;
  438.   gewOuterSize *= gewBase + 1;
  439.  
  440.  
  441. (* --- Library Base variable -------------------------------------------- *)
  442.  
  443. TYPE GUIEnvBase * = E.Library;
  444.      GUIEnvBasePtr * = CPOINTER TO GUIEnvBase;
  445.  
  446. VAR
  447.  
  448.   base *  : GUIEnvBasePtr;
  449.  
  450.  
  451. (* --- Library Functions ------------------------------------------------ *)
  452.  
  453.   LIBCALL (base : GUIEnvBasePtr) OpenGUIFont *
  454.           (name[8] : E.STRPTR;
  455.            size[0] : INTEGER;
  456.            font[9] : G.TextAttrPtr) : G.TextFontPtr;    -30;
  457.  
  458.   LIBCALL (base : GUIEnvBasePtr) CloseGUIFont *
  459.           (font[8] : G.TextFontPtr);            -36;
  460.  
  461.   LIBCALL (base : GUIEnvBasePtr) OpenGUIScreenA *
  462.           (id[0] : LONGINT;
  463.            depth[1]: INTEGER;
  464.            name[8] : E.STRPTR;
  465.            tags[9] : ARRAY OF U.TagItem) : I.ScreenPtr;    -42;
  466.  
  467.   LIBCALL (base : GUIEnvBasePtr) OpenGUIScreen *
  468.           (id[0] : LONGINT;
  469.            depth[1]: INTEGER;
  470.            name[8] : E.STRPTR;
  471.            tags[9].. : U.Tag) : I.ScreenPtr;    -42;
  472.  
  473.   LIBCALL (base : GUIEnvBasePtr) OpenGUIWindowA *
  474.           (left[0] : INTEGER;
  475.            top[1]  : INTEGER;
  476.            width[2]  : INTEGER;
  477.            height[3] : INTEGER;
  478.            name[8] : E.STRPTR;
  479.            idcmpFlags[4]  : SET;
  480.            windowFlags[5] : SET;
  481.            screen[9] : I.ScreenPtr;
  482.            tags[10]  : ARRAY OF U.TagItem) : I.WindowPtr;  -48;
  483.  
  484.   LIBCALL (base : GUIEnvBasePtr) OpenGUIWindow *
  485.           (left[0] : INTEGER;
  486.            top[1]  : INTEGER;
  487.            width[2]  : INTEGER;
  488.            height[3] : INTEGER;
  489.            name[8] : E.STRPTR;
  490.            idcmpFlags[4]  : SET;
  491.            windowFlags[5] : SET;
  492.            screen[9] : I.ScreenPtr;
  493.            tags[10].. : U.Tag) : I.WindowPtr;  -48;
  494.  
  495.   LIBCALL (base : GUIEnvBasePtr) CloseGUIWindow *
  496.           (window[8] : I.WindowPtr);                -54;
  497.  
  498.   LIBCALL (base : GUIEnvBasePtr) CloseGUIScreen *
  499.           (screen[8] : I.ScreenPtr);                -60;
  500.  
  501.   LIBCALL (base : GUIEnvBasePtr) CreateGUIInfoA *
  502.           (window[8] : I.WindowPtr;
  503.            tags[9] : ARRAY OF U.TagItem) : GUIInfoPtr;  -66;
  504.  
  505.   LIBCALL (base : GUIEnvBasePtr) CreateGUIInfo *
  506.           (window[8] : I.WindowPtr;
  507.            tags[9].. : U.Tag) : GUIInfoPtr;  -66;
  508.  
  509.   LIBCALL (base : GUIEnvBasePtr) FreeGUIInfo *
  510.           (gui[8] : GUIInfoPtr);                -72;
  511.  
  512.   LIBCALL (base : GUIEnvBasePtr) DrawGUIA *
  513.           (gui[8] : GUIInfoPtr;
  514.            tags[9]: ARRAY OF U.TagItem) : INTEGER;        -78;
  515.  
  516.   LIBCALL (base : GUIEnvBasePtr) DrawGUI *
  517.           (gui[8] : GUIInfoPtr;
  518.            tags[9]..: U.Tag) : INTEGER;        -78;
  519.  
  520.   LIBCALL (base : GUIEnvBasePtr) ChangeGUIA *
  521.           (gui[8]  : GUIInfoPtr;
  522.            tags[9] : ARRAY OF U.TagItem) : INTEGER;       -84;
  523.  
  524.   LIBCALL (base : GUIEnvBasePtr) ChangeGUI *
  525.           (gui[8]  : GUIInfoPtr;
  526.            tags[9].. : U.Tag) : INTEGER;       -84;
  527.  
  528.   LIBCALL (base : GUIEnvBasePtr) CreateGUIGadgetA *
  529.           (gui[8] : GUIInfoPtr;
  530.            left[0] : INTEGER;
  531.            top[1]  : INTEGER;
  532.            width[2]  : INTEGER;
  533.            height[3] : INTEGER;
  534.            kind[4] : LONGINT;
  535.            tags[9] : ARRAY OF U.TagItem);                 -90;
  536.  
  537.   LIBCALL (base : GUIEnvBasePtr) CreateGUIGadget *
  538.           (gui[8] : GUIInfoPtr;
  539.            left[0] : INTEGER;
  540.            top[1]  : INTEGER;
  541.            width[2]  : INTEGER;
  542.            height[3] : INTEGER;
  543.            kind[4] : LONGINT;
  544.            tags[9].. : U.Tag);                 -90;
  545.  
  546.   LIBCALL (base : GUIEnvBasePtr) CreateGUIMenuEntryA *
  547.           (gui[8]  : GUIInfoPtr;
  548.            type[0] : SHORTINT;
  549.            text[9] : E.STRPTR;
  550.            tags[10] : ARRAY OF U.TagItem);              -96;
  551.  
  552.   LIBCALL (base : GUIEnvBasePtr) CreateGUIMenuEntry *
  553.           (gui[8]  : GUIInfoPtr;
  554.            type[0] : SHORTINT;
  555.            text[9] : E.STRPTR;
  556.            tags[10].. : U.Tag);              -96;
  557.  
  558.   LIBCALL (base : GUIEnvBasePtr) WaitGUIMsg *
  559.           (gui[8] : GUIInfoPtr);                -102;
  560.  
  561.   LIBCALL (base : GUIEnvBasePtr) GetGUIMsg *
  562.           (gui[8] : GUIInfoPtr) : BOOLEAN;      -108;
  563.  
  564.  
  565.   LIBCALL (base : GUIEnvBasePtr) SetGUIGadgetA *
  566.           (gui[8] : GUIInfoPtr;
  567.            nbr[0] : INTEGER;
  568.            tags[9]: ARRAY OF U.TagItem);                  -114;
  569.  
  570.   LIBCALL (base : GUIEnvBasePtr) SetGUIGadget *
  571.           (gui[8] : GUIInfoPtr;
  572.            nbr[0] : INTEGER;
  573.            tags[9]..: U.Tag);                  -114;
  574.  
  575.   LIBCALL (base : GUIEnvBasePtr) GetGUIGadget *
  576.           (gui[8] : GUIInfoPtr;
  577.            nbr[0] : INTEGER;
  578.            attr[1]: LONGINT) : LONGINT;           -120;
  579.  
  580.   LIBCALL (base : GUIEnvBasePtr) GUIGadgetActionA *
  581.           (gui[8] : GUIInfoPtr;
  582.            tags[9]: ARRAY OF U.TagItem);                  -126;
  583.  
  584.   LIBCALL (base : GUIEnvBasePtr) GUIGadgetAction *
  585.           (gui[8] : GUIInfoPtr;
  586.            tags[9]..: U.Tag);                  -126;
  587.  
  588.   LIBCALL (base : GUIEnvBasePtr) GUIRequestA *
  589.           (gui[8] : GUIInfoPtr;
  590.            text[9] : E.STRPTR;
  591.            kind[0] : LONGINT;
  592.            tags[10] : ARRAY OF U.TagItem) : LONGINT;    -132;
  593.  
  594.   LIBCALL (base : GUIEnvBasePtr) GUIRequest *
  595.           (gui[8] : GUIInfoPtr;
  596.            text[9] : E.STRPTR;
  597.            kind[0] : LONGINT;
  598.            tags[10].. : U.Tag) : LONGINT;    -132;
  599.  
  600.   LIBCALL (base : GUIEnvBasePtr) ShowGuideNodeA *
  601.           (gui[8]   : GUIInfoPtr;
  602.            guide[9] : E.STRPTR;
  603.            node[10] : E.STRPTR;
  604.            tags[11] : ARRAY OF U.TagItem) : INTEGER; -138;
  605.  
  606.   LIBCALL (base : GUIEnvBasePtr) ShowGuideNode *
  607.           (gui[8]   : GUIInfoPtr;
  608.            guide[9] : E.STRPTR;
  609.            node[10] : E.STRPTR;
  610.            tags[11].. : U.Tag) : INTEGER; -138;
  611.  
  612.   LIBCALL (base : GUIEnvBasePtr) GetCatStr *
  613.           (gui[8] : GUIInfoPtr;
  614.            str[0] : LONGINT;
  615.            def[9] : E.STRPTR) : E.STRPTR; -144;
  616.  
  617.   LIBCALL (base : GUIEnvBasePtr) GetLocStr *
  618.           (gui[8] : GUIInfoPtr;
  619.            str[0] : LONGINT;
  620.            def[9] : E.STRPTR) : E.STRPTR; -150;
  621.  
  622.  
  623.  
  624. (* $L- Address globals through A4 *)
  625.  
  626. PROCEDURE* CloseLib (VAR rc : LONGINT);
  627. BEGIN
  628.   IF base # NIL THEN E.base.CloseLibrary (base) END;
  629. END CloseLib;
  630.  
  631. PROCEDURE OpenLib * (mustOpen : BOOLEAN);
  632. BEGIN
  633.   IF base = NIL THEN
  634.     base := E.base.OpenLibrary (Name, Version);
  635.     IF base # NIL THEN K.SetCleanup(CloseLib)
  636.     ELSIF mustOpen THEN HALT (100)
  637.     END
  638.   END
  639. END OpenLib;
  640.  
  641.  
  642. BEGIN (* GUIEnv *)
  643.   base := NIL;
  644. END GUIEnv.
  645.